home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / dev / obero / dialogs.lha / oberonv4 / system1 / DialogRadioButtons.Mod (.txt) < prev    next >
Oberon Text  |  1995-12-25  |  6KB  |  151 lines
  1. Syntax10.Scn.Fnt
  2. Syntax10i.Scn.Fnt
  3. StampElems
  4. Alloc
  5. 10 Feb 95
  6. Syntax10b.Scn.Fnt
  7. MODULE DialogRadioButtons;
  8.     (** Markus Knasm
  9. ller 30 Jun 94 -  
  10. IMPORT DialogFrames, DialogGroupBoxes, Dialogs, DialogTexts, Display, Display1, In, Input, Oberon, Printer, TextFrames, Texts, Viewers;
  11.     CONST ML = 0; MM = 1; MR = 2;  W* = 20; H* = W; grey1 = 12; grey2 = 13; grey3 = 14; black = 15; white = 0; p = 5;
  12.     TYPE 
  13.         Item* = POINTER TO ItemDesc;
  14.         ItemDesc* = RECORD(Dialogs.ObjectDesc)
  15.             on-: BOOLEAN; (** state of the radiobutton *)
  16.         END;
  17.     VAR w: Texts.Writer;
  18.     PROCEDURE Min (x, y: INTEGER): INTEGER;
  19.     BEGIN IF x < y THEN RETURN x ELSE RETURN y END
  20.     END Min;
  21.     PROCEDURE (r: Item) Draw* (x, y: INTEGER; f: Display.Frame);
  22.     (** displays the object at (x, y) in frame f *)
  23.         VAR mode, w, h, rx, ry, i, y1, w2: INTEGER;
  24.     BEGIN
  25.         r.GetDim (rx, ry, w, h); DEC (w); DEC (h); w := Min (w, h);
  26.         IF r.selected THEN mode := Display.invert ELSE mode := Display.replace END;
  27.         w2 := w DIV 2; w := w2 * 2; (* VIC Jan 11 1995 *)
  28.         IF r.on THEN
  29.             Display1.Line (f, black, x, y + w2, x + w2, y + w, mode);
  30.             Display1.Line (f, black, x + w, y + w2, x + w2, y + w, mode);
  31.             Display1.Line (f, white, x, y + w2, x + w2, y, mode);
  32.             Display1.Line (f, white, x + w, y + w2, x + w2, y, mode);
  33.             FOR  i := - ((w * p) DIV 20) TO 0 DO
  34.                 y1 := y + w2 + (w * p DIV 20) + i;
  35.                 Display1.Line (f, black, x + w2 + i, y1, x + w2 - i, y1, mode); 
  36.             END;
  37.             FOR  i := 0 TO ((w * p) DIV 20) DO
  38.                 y1 := y + w2 - i;
  39.                 Display1.Line (f, black, x + w2 - (w * p DIV 20) + i, y1, x + w2  + (w * p DIV 20) - i, y1, mode); 
  40.             END;
  41.         ELSE
  42.             Display1.Line (f, white, x, y + w2, x + w2, y + w, mode);
  43.             Display1.Line (f, white, x + w, y + w2, x + w2, y + w, mode);
  44.             Display1.Line (f, black, x, y + w2, x + w2, y, mode);
  45.             Display1.Line (f, black, x + w, y + w2, x + w2, y, mode)
  46.         END
  47.     END Draw;
  48.     PROCEDURE (r: Item) Print* (x, y: INTEGER);
  49.     (** prints the object at printer coordinates (x, y) *)
  50.         VAR w, h, rx, ry, i, y1: INTEGER;
  51.     BEGIN
  52.         r.GetPDim (rx, ry, w, h); DEC (w); DEC (h); w := Min (w, h);
  53.         Printer.Line (x + w, y + (w DIV 2), x + (w DIV 2), y + w);
  54.         Printer.Line (x + w, y + (w DIV 2), x + (w DIV 2), y);
  55.         Printer.Line (x, y + (w DIV 2), x + (w DIV 2), y + w);
  56.         Printer.Line (x, y + (w DIV 2), x + (w DIV 2), y);
  57.         IF r.on THEN
  58.             FOR  i := - ((w * p) DIV 20) TO 0 DO
  59.                 y1 := y + (w DIV 2) + (w * p DIV 20) + i;
  60.                 Printer.Line (x + (w DIV 2) + i, y1, x + (w DIV 2) - i, y1); 
  61.             END;
  62.             FOR  i := 0 TO ((w * p) DIV 20) DO
  63.                 y1 := y + (w DIV 2) - i;
  64.                 Printer.Line (x + (w DIV 2) - (w * p DIV 20) + i, y1, x + (w DIV 2)  + (w * p DIV 20) - i, y1); 
  65.             END;
  66.         END
  67.     END Print;
  68.     PROCEDURE (r: Item) Copy* (VAR dup: Dialogs.Object);
  69.     (** allocates dup and makes a deep copy of o. Before calling this methode dup should be equal NIL *)
  70.         VAR x: Item;
  71.     BEGIN
  72.         IF dup = NIL THEN NEW (x); dup := x ELSE x := dup(Item) END; 
  73.         r.Copy^ (dup); x.on := r.on;
  74.     END Copy;
  75.     PROCEDURE (r: Item) ChangeValue* (value: BOOLEAN);
  76.     (** changes the state of the item *)
  77.         VAR g, o: Dialogs.Object; obArray: ARRAY 50 OF Dialogs.Object; nofelems, i: INTEGER;
  78.     BEGIN
  79.         IF r.on = value THEN RETURN END;
  80.         r.Hide; r.on := value; r.Restore;
  81.         IF value = FALSE THEN RETURN END;
  82.         g := r.OverlappingObject (); IF g = NIL THEN RETURN END;
  83.         WITH g: DialogGroupBoxes.Item DO
  84.             g.GetObjects (obArray, nofelems); 
  85.             FOR i := 0 TO nofelems - 1 DO
  86.                 o := obArray[i];
  87.                 IF o # r THEN
  88.                     WITH o: Item DO
  89.                         IF o.on THEN o.Hide; o.on := FALSE; o.Restore END
  90.                     ELSE
  91.                     END
  92.                 END
  93.             END
  94.         ELSE 
  95.         END
  96.     END ChangeValue;
  97.     PROCEDURE (r: Item) Track (x, y: INTEGER; keys: SET; f: Display.Frame; p: Dialogs.Panel);
  98.         VAR keysum: SET; name: ARRAY 64 OF CHAR; dummy: ARRAY 6 OF CHAR; t: Texts.Text;
  99.     BEGIN
  100.         IF (keys = {ML}) OR (keys = {MM}) OR (keys = {MR}) THEN keysum := keys;
  101.             REPEAT Input.Mouse(keys, x, y); keysum := keysum + keys;
  102.                 Oberon.DrawCursor(Oberon.Mouse, Oberon.Arrow, x, y)
  103.             UNTIL keys = {};
  104.             IF (keysum = {ML}) OR (keysum = {MM}) OR (keysum = {MR}) & (~ r.on) THEN (* one button of a set is on at any time *)
  105.                 r.ChangeValue (TRUE); 
  106.                 IF r.cmd[0] # 0X THEN
  107.                     DialogTexts.GetParText (r.par, r.panel, t);
  108.                     r.CallCmd (f, Viewers.This (x, y), t)
  109.                 END
  110.             END
  111.         ELSE Oberon.DrawCursor(Oberon.Mouse, Oberon.Arrow, x, y)
  112.         END
  113.     END Track;
  114.     PROCEDURE (r: Item) Handle* (f: Display.Frame; VAR m: Display.FrameMsg);
  115.     (** handles messages which were sent to frame f *)
  116.     BEGIN
  117.         r.Handle^ (f, m);
  118.         WITH f: DialogFrames.Frame DO
  119.             WITH m: Oberon.InputMsg DO
  120.                 IF m.id = Oberon.track THEN r.Track (m.X, m.Y, m.keys, f, f.panel) END
  121.             ELSE
  122.             END
  123.         ELSE
  124.         END
  125.     END Handle;
  126.     PROCEDURE Insert*;
  127.     (** Insert ([name] [x y w h] | ^ ) inserts a radiobutton - item in the panel containing the caret position *)
  128.         VAR x, y, x1, y1, w, h: INTEGER; r: Item; p: Dialogs.Panel; name: ARRAY 64 OF CHAR;
  129.     BEGIN 
  130.         NEW (r); 
  131.         DialogFrames.GetCaretPosition (p, x, y);
  132.         IF (p # NIL) THEN 
  133.             r.Init; r.on := FALSE; 
  134.             In.Open; In.Name (name);
  135.             IF ~In.Done THEN COPY ("", name); In.Open END;
  136.             r.SetName (name); 
  137.             In.Int (x1); In.Int (y1); In.Int (w); In.Int (h);
  138.             IF ~In.Done THEN x1 := x; y1 := y; w := W; h := H 
  139.             ELSE
  140.                 IF w < 0 THEN w := W END;
  141.                 IF h < 0 THEN h := H END
  142.             END;
  143.             r.SetDim (x1, y1, w, h, FALSE); p.Insert (r, FALSE);   
  144.         ELSE
  145.             Dialogs.res := Dialogs.noPanelSelected
  146.         END;
  147.         IF Dialogs.res # 0 THEN Dialogs.Error ("DialogRadioButtons") END;
  148.     END Insert;
  149. BEGIN Texts.OpenWriter (w);
  150. END DialogRadioButtons.
  151.